home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / WARGAMES.ARC / WAR MENU (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.2 KB  |  70 lines
  1. 10 CLR:RESTORE:SP=10:GOTO530
  2. 20 ]RE:]LI 1:]SP 68:]PI 68:]KN 150,150
  3. 30 POKE53280,0:POKE53281,0:PRINT""
  4. 40 A$="FALKENS MAZE":PRINT"[147]":PRINT"[157] ":TL=1:GOSUB420:PRINT"[157]  "
  5. 50 A$="CHECKERS":PRINT"[157] ":TL=2:GOSUB420:PRINT"[157]  "
  6. 60 A$="CHESS":PRINT"[157] ":TL=3:GOSUB420:PRINT"[157]  "
  7. 70 A$="POKER":PRINT"[157] ":TL=4:GOSUB420:PRINT"[157]  "
  8. 80 A$="GUERILLA WARFARE":PRINT"[157] ":TL=5:GOSUB420:PRINT"[157]  "
  9. 90 A$="CHEMICAL AND BIOTOXIC WARFARE":PRINT"[157] ":TL=6:GOSUB420:PRINT"[157]  "
  10. 100 A$="GLOBAL THERMONUCLEAR WAR":PRINT"[157] ":TL=10:GOSUB420:PRINT"[157] "
  11. 110 A$="CHOOSE ONE":PRINT"[157] ":TL=12:GOSUB420:PRINT"[157] ":P4$=""
  12. 120 PRINT:PRINT:TL=14:PRINT" [146]";
  13. 130 P3$=" ":GOTO180
  14. 140 GETP3$:IFP3$=""THEN140
  15. 150 IFP3$=CHR$(13)THENPRINT"[157] ":GOTO200
  16. 160 IFP3$=CHR$(20)THENPRINT"[157]";CHR$(20);" [146]";:P4$=LEFT$(P4$,LEN(P4$)-1):GOTO140
  17. 170 P4$=P4$+P3$
  18. 180 PRINT"[157] ";"[157]";P3$;" [146]";
  19. 190 GOTO140
  20. 200 IFLEFT$(P4$,4)="GLOB"THENPOKE29,0:GOTO290
  21. 210 POKE29,0:IFP4$="FALKENS MAZE"THEN590
  22. 220 IFP4$="CHECKERS"THEN600
  23. 230 IFP4$="CHESS"THEN610
  24. 240 IFP4$="POKER"THEN620
  25. 250 IFLEFT$(P4$,4)="CHEM"THENPOKE29,0:GOTO630
  26. 260 IFP4$="GUERILLA WARFARE"THEN670
  27. 270 POKE29,0
  28. 280 A$="GAME NOT AVAILABLE":TL=16:GOSUB420:PRINT"[157]  ":GOTO30
  29. 290 A$="WOULDN'T YOU PREFER A GOOD GAME OF":TL=16:GOSUB420:PRINT"[157]  "
  30. 300 A$="CHESS":TL=16:GOSUB420:PRINT"[157]  ":P4$="":PRINT:PRINT" ";" [146]";
  31. 310 GETP3$:IFP3$=""THEN310
  32. 320 IFP3$=CHR$(13)THENPRINT"[157] ":GOTO370
  33. 330 IFP3$=CHR$(20)THENPRINT"[157]";CHR$(20);" [146]";:P4$=LEFT$(P4$,LEN(P4$)-1):GOTO310
  34. 340 P4$=P4$+P3$
  35. 350 PRINT"[157] ";"[157]";P3$;" [146]";
  36. 360 GOTO310
  37. 370 IFLEFT$(P4$,1)="Y"ORP4$="OK"THENP4$="CHESS":POKE29,0:GOTO610
  38. 380 POKE29,0
  39. 390 A$="FINE":TL=18:GOSUB420
  40. 400 GOTO640
  41. 410 READA$
  42. 420 A=LEN(A$):PRINT
  43. 430 FORB=1TOA:PRINT"":FORSE=1TOTL:PRINT:NEXTSE:PRINT"";:IFTL=0THENPRINT"[145][145]"
  44. 440 IFLEFT$(A$,1)="H"ANDTL=5THENPOKE29,0:PRINT"[157][157]"
  45. 450 POKE29,0
  46. 460 PRINTTAB(B);MID$(A$,B,1);" [146]";
  47. 470 FORC=1TOSP:NEXT
  48. 480 NEXTB
  49. 490 SAYA$
  50. 500 RETURN
  51. 510 DATA"                                      "
  52. 520 DATA"                                      "
  53. 530 POKE792,207:POKE793,2:POKE720,4:POKE739,13:POKE743,0
  54. 540 PRINT"[147]":POKE53280,6:POKE53281,6
  55. 550 IFPEEK(49153)<>187THENPRINT"          LOADING SUB PROGRAMS  [146]"
  56. 560 IFPEEK(49153)<>187THENLOAD"SAM",8,1
  57. 570 SYS38144:POKE52,125:POKE54,125:POKE56,125
  58. 580 POKE53280,0:POKE29,0:GOTO20
  59. 590 PRINT"[147]LOAD";CHR$(34);"FALKENS MAZE";CHR$(34);",8,1":GOTO680
  60. 600 PRINT"[147]LOAD";CHR$(34);"CHECKERS";CHR$(34);",8,1":GOTO680
  61. 610 POKE12287,200:POKE25598,0:PRINT"[147]LOAD";CHR$(34);"CHESS";CHR$(34);",8,1":GOTO680
  62. 620 PRINT"[147]LOAD";CHR$(34);"POKER";CHR$(34);",8,1":GOTO680
  63. 630 PRINT"[147]LOAD";CHR$(34);"BIO WAREFARE";CHR$(34);",8,1":GOTO680
  64. 640 PRINT"[147]LOAD";CHR$(34);"WAR GAMES";CHR$(34);",8,1"
  65. 650 POKE631,19:POKE632,13:POKE633,82:POKE634,117:POKE635,52:POKE636,57
  66. 660 POKE637,53:POKE638,13:POKE198,8:END
  67. 670 PRINT"[147]LOAD";CHR$(34);"GUERILLA WARFARE";CHR$(34);",8,1"
  68. 680 POKE631,19:POKE632,13:POKE633,82:POKE634,117:POKE635,13:POKE198,5:POKE29,0
  69. 690 END
  70.